﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>

<%
	dim rs,sql,i,act,page,t
                urls=Request.QueryString("urls")
                if urls="" then urls="index.asp"
                t=Request.QueryString("t")
    		act = Request.QueryString("act")
    		If act = "" Then act = 1
   		If Not IsNumeric(act) Then act = 1
    		act = CLng(act)
	        if act>4 or act<1 then act=1
    		Page = Request("page")      '当前页数
    		If Page = "" Then Page = 1
   		If Not IsNumeric(Page) Then Page = 1
    		Page = CLng(Page)
    		If Page < 1 Then Page = 1
select case v
case "0"
we0="<br/>"
hr="-------------<br/>"
book="跳到第<input name='Page' format='*N' size='2' maxlength='5'/><anchor>页<go href='css.asp?act="&act&"&amp;urls="&urls&"&amp;sid="&sidd&"' method='post'><postfield name=""Page"" value=""$(Page:n)"" /></go></anchor>"
%>
<card title="切换界面"><p align="<%=qingtian.px%>">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
we1="</div>"
book=""&dao&"<form action=""css.asp?act="&act&"&amp;urls="&urls&"&amp;sid="&sidd&""" method=""post"">跳到第<input type=""text"" name=""Page"" value="""" format=""*N"" size=""2"" maxlength=""5""/><input type=""submit"" value=""页"" /></form>"
%>
<title>切换界面</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%

End Select


		if sid<>"Null" then
		qingtian.info
		end if
if act=1 then
		%><%=dao%>默认<%=zi%>.<%=zi0%><a href="css.asp?act=2&amp;urls=<%=urls%>&amp;sid=<%=sidd%>">彩版</a><%=zi%>.<%=zi0%><a href="css.asp?act=3&amp;urls=<%=urls%>&amp;sid=<%=sidd%>">3G版</a><%=zi%>.<%=zi0%><a href="css.asp?act=4&amp;urls=<%=urls%>&amp;sid=<%=sidd%>">电脑</a><%=we0%><%=hr%><%
		elseif act=2 then
		%><%=dao%><a href="css.asp?act=1&amp;urls=<%=urls%>&amp;sid=<%=sidd%>">默认</a><%=zi%>.<%=zi0%>彩版<%=zi%>.<%=zi0%><a href="css.asp?act=3&amp;urls=<%=urls%>&amp;sid=<%=sidd%>">3G版</a><%=zi%>.<%=zi0%><a href="css.asp?act=4&amp;urls=<%=urls%>&amp;sid=<%=sidd%>">电脑</a><%=we0%><%=hr%><%
                elseif act=3 then
		%><%=dao%><a href="css.asp?act=1&amp;urls=<%=urls%>&amp;sid=<%=sidd%>">默认</a><%=zi%>.<%=zi0%><a href="css.asp?act=2&amp;urls=<%=urls%>&amp;sid=<%=sidd%>">彩版</a><%=zi%>.<%=zi0%>3G版<%=zi%>.<%=zi0%><a href="css.asp?act=4&amp;urls=<%=urls%>&amp;sid=<%=sidd%>">电脑</a><%=we0%><%=hr%><%
                else
		%><%=dao%><a href="css.asp?act=1&amp;urls=<%=urls%>&amp;sid=<%=sidd%>">默认</a><%=zi%>.<%=zi0%><a href="css.asp?act=2&amp;urls=<%=urls%>&amp;sid=<%=sidd%>">彩版</a><%=zi%>.<%=zi0%><a href="css.asp?act=3&amp;urls=<%=urls%>&amp;sid=<%=sidd%>">3G版</a><%=zi%>.<%=zi0%>电脑<%=we0%><%=hr%><%
		end if
Response.Write we
                if t="ok" then Response.Write("<a href='"&qingtian.backurl(urls)&"'>设置完成</a><br/>")

		if act=1 then
Response.Write("<a href='css.asp?urls="&urls&"&amp;t=ok&amp;sid="&sid&"-0-"&fv&"'>WAP1.0简版</a><br/>")
Response.Write("<a href='css.asp?urls="&urls&"&amp;t=ok&amp;sid="&sid&"-1-a'>绿意嫣然</a><br/>")
Response.Write("<a href='css.asp?urls="&urls&"&amp;t=ok&amp;sid="&sid&"-1-b'>紫色淡雅</a><br/>")
Response.Write("<a href='css.asp?urls="&urls&"&amp;t=ok&amp;sid="&sid&"-1-c'>浅蓝伊绿</a><br/>")
Response.Write("<a href='css.asp?urls="&urls&"&amp;t=ok&amp;sid="&sid&"-1-d'>古朴浅黄</a><br/>")
Response.Write("<a href='css.asp?urls="&urls&"&amp;t=ok&amp;sid="&sid&"-1-e'>喜庆粉红</a><br/>")
Response.Write("<a href='css.asp?urls="&urls&"&amp;t=ok&amp;sid="&sid&"-1-f'>优容浅紫</a><br/>")
Response.Write("<a href='css.asp?urls="&urls&"&amp;t=ok&amp;sid="&sid&"-1-g'>黑白经典</a><br/>")
Response.Write we1
		else
	        Set Rs = Server.CreateObject("Adodb.Recordset")
                sql="select * from qingtian_css where act="&act-1&" order by id asc"
		Rs.Open Sql,conn,1,1
		if not (rs.bof and rs.eof)  then
				Rs.PageSize = 10	'一页N条记录
				IF Not IsEmpty(Page) Then
					IF Not IsNumeric(Page) Then		'判断Page是否为数字
						Page=1
					Else
						Page=Cint(Page)		'转换成短整形Integer
					End IF
					IF Page > Rs.PageCount Then
						Rs.AbsolutePage = Rs.PageCount	'设置当前显示页等于最后一页
					ElseIF Page <= 0 Then
						Rs.AbsolutePage = 1		'设置当前页等于第一页
					Else
						Rs.AbsolutePage = Page	'如果大于零,显示当前页等于接收的页数
					End IF
				Else
					Rs.AbsolutePage = 1
				End IF
				Page = Rs.AbsolutePage


		For i=1 to  Rs.PageSize
		If Rs.Eof Then
			exit For
		End If			
Response.Write("<a href='css.asp?act="&act&"&amp;Page="&Page&"&amp;urls="&urls&"&amp;t=ok&amp;sid="&sid&"-1-"&rs("id")&"'>"&rs("name")&"</a><br/>")
			
	 	Rs.MoveNext
	  	Next
                    Response.Write we1
                if rs.PageCount>1 then
                    Response.Write dao
                end if
   		'分页
    		If Page < rs.PageCount Then
    		    Response.Write("<a href='css.asp?urls="&urls&"&amp;act="&act&"&amp;page=" & Page + 1 & "&amp;sid="&sidd&"'>下页</a>")
    		End If
   		If Page > 1 Then
    		    Response.Write("<a href='css.asp?urls="&urls&"&amp;act="&act&"&amp;page=" & Page - 1 & "&amp;sid="&sidd&"'>上页</a>")
    		End If
    		If Page < rs.PageCount Then
    		    Response.Write("<a href='css.asp?urls="&urls&"&amp;act="&act&"&amp;page=" & rs.PageCount & "&amp;sid="&sidd&"'>末页</a>")
    		End If
    		If Page > 1 Then
    		    Response.Write("<a href='css.asp?urls="&urls&"&amp;act="&act&"&amp;page=1&amp;sid="&sidd&"'>首页</a>"&we0&"")
    		Elseif rs.PageCount >1 then
    		    Response.Write we0
    		End If
            
    		Randomize()
    
    		If rs.PageCount > 3 Then
    		    %>
		<%=book%>
		<%
                Response.Write("(总"&rs.PageCount&"页)"&we0&"") 
    		End If
		else
    		    %>
<%=we%>还没设置该界面<%=we0%>
		<%
		end if
		Rs.close
	set rs=nothing
end if
%>
<%=hr%><%=sou%><a href='<%=qingtian.backurl(urls)%>'>返回上级页面</a><%=we0%>

<%
End Function
%>
